Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel PPC/lib_show/animal/chat.e

Text File | 1996-06-13 | 428 b | 24 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class CHAT

inherit
   QUADRUPEDE
      redefine reproduction_avec_quadrupede
      end;

feature {ANY}

   reproduction_avec_quadrupede(quadrupede: CHAT): CHAT is
      do
         Result := Current;
      end;

   crier is
      do
     std_output.put_string("MIAOU");
      end;

end -- CHAT